home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / map_quiz / a_africa.bas next >
BASIC Source File  |  1993-11-30  |  17KB  |  394 lines
  1. 1000 ' ******************************************************************
  2. 1010 ' *                                                                *
  3. 1020 ' *     :::::::::::: A_AFURICA.BAS ::::::::::::::                  *
  4. 1030 ' *                                     Programmed By T.K.Mosaku   *
  5. 1040 ' *                                     ~~~~~~~~~~~~~~~~~~~~~~~~   *
  6. 1050 ' ******************************************************************
  7. 1060 '
  8. 1070 '** 画面表示 **
  9. 1080 MENU=1
  10. 1090 LOAD@"D_AFMAP.TIF",(1,1)
  11. 1100 LOAD@"F_SWICH2.TIF",(19,393)
  12. 1110 LOAD@"F_SWICH3.TIF",(98,393)
  13. 1120 '
  14. 1130 '** MENU 画面 **
  15. 1140 *MENU_GAMEN
  16. 1150 CLS 4:SIR=0
  17. 1160 LOCATE 61,2 :COLOR 2:PRINT"国名クイズ"
  18. 1170 LOCATE 55,4 :COLOR 3:PRINT" ﾒﾆｭ- "
  19. 1180 LOCATE 55,6 :COLOR 2:PRINT"何問に挑戦しますか｡"
  20. 1190 LOCATE 57,8 :COLOR 1:PRINT"左クリックして"
  21. 1200 LOCATE 57,9 :COLOR 1:PRINT"下から選んで下さい｡"
  22. 1210 LOCATE 55,11:COLOR 3:PRINT"君は？"
  23. 1220 LOCATE 57,13:COLOR 2:PRINT"どの位答えられるか。"
  24. 1230 LOCATE 55,16:COLOR 3:PRINT"  問題の数 "
  25. 1240 LOCATE 58,18:COLOR 2:PRINT"　5問　10問　20問"
  26. 1250 LOCATE 58,19:COLOR 2:PRINT" 30問　40問　45問"
  27. 1260 '
  28. 1270 MOUSE 0
  29. 1280 MOUSE 1,596,353,1
  30. 1290 '
  31. 1300 '** MENU 選択 **
  32. 1310 X=MOUSE(4,0):Y=MOUSE(5,0)
  33. 1320 IF X>103 AND X<128 AND Y>415 AND Y<424 THEN SIR=1 :GOTO *SIRABERU
  34. 1330 IF X>29  AND X<52  AND Y>38  AND Y<59  THEN        GOTO *MENU_1
  35. 1340 IF X>63  AND X<81  AND Y>38  AND Y<59  THEN        GOTO *OWARI_E
  36. 1350 IF X>475 AND X<501 AND Y>344 AND Y<355 THEN PNO= 5:GOTO *MOZI
  37. 1360 IF X>523 AND X<550 AND Y>344 AND Y<355 THEN PNO=10:GOTO *MOZI
  38. 1370 IF X>560 AND X<600 AND Y>344 AND Y<355 THEN PNO=20:GOTO *MOZI
  39. 1380 IF X>475 AND X<501 AND Y>363 AND Y<375 THEN PNO=30:GOTO *MOZI
  40. 1390 IF X>523 AND X<550 AND Y>363 AND Y<375 THEN PNO=40:GOTO *MOZI
  41. 1400 IF X>560 AND X<600 AND Y>363 AND Y<375 THEN PNO=45:GOTO *MOZI
  42. 1410 GOTO 1310
  43. 1420 '
  44. 1430 '** 画面設定 **
  45. 1440 *MOZI
  46. 1450 QQN=0
  47. 1460 IF QQN=2 THEN GOTO 1720
  48. 1470 CLS 4
  49. 1480 LOCATE 61,2 :COLOR 2:PRINT"国名クイズ"
  50. 1490 LOCATE 55,4 :COLOR 3:PRINT"問  題"
  51. 1500 LOCATE 61,8 :COLOR 3:PRINT"左クリックして"
  52. 1510 LOCATE 61,9 :COLOR 3:PRINT"下さい｡"
  53. 1520 LOCATE 55,11:COLOR 3:PRINT"答  え"
  54. 1530 LOCATE 55,16:COLOR 1:PRINT"今までの成績"
  55. 1540 LOCATE 57,18:COLOR 1:PRINT"解答数"
  56. 1550 LOCATE 57,19:COLOR 1:PRINT"正答率         ％"
  57. 1560 IF QQN=1 THEN QQN=QQN+1:GOTO 1720
  58. 1570 '
  59. 1580 '** MAIN LOOTINE **
  60. 1590 CY=0:CN=0:CCN=0:QQN=0:DIM NF(45):DIM KIRR(40):KIRN=0
  61. 1600 '
  62. 1610 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1:MOUSE 4,25,36,382,412
  63. 1620 '
  64. 1630 RANDOMIZE TIME 
  65. 1640 NF(0)=INT(RND*50)
  66. 1650 T=1
  67. 1660   IF CCN=PNO THEN GOTO 3800
  68. 1670   N=INT(RND*50)+1
  69. 1680   FOR J=0 TO T-1
  70. 1690     IF NF(J)=N THEN GOTO 1670
  71. 1700   NEXT J
  72. 1710   NF(T)=N:QQ=N
  73. 1720     MOUSE 5:MOUSE 0:MOUSE 1,382,412,1:MOUSE 4,25,36,382,421
  74. 1730     TTN=0:BN=0
  75. 1740     IF QQ=<10           THEN Q=QQ   :GOTO *M0
  76. 1750     IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
  77. 1760     IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
  78. 1770     IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
  79. 1780     IF QQ>40 AND QQ<50  THEN Q=QQ-40:GOTO *M4
  80. 1790 CCN=CCN+1:T=T+1:GOTO 1660
  81. 1800 T=T+1:GOTO 1660
  82. 1810 '
  83. 1820 IF KIRN=4380 THEN ELSE 4020
  84. 1830 '
  85. 1840 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
  86. 1850 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A20
  87. 1860 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
  88. 1870 *M3:ON Q GOTO *A31,*A32,*A33,*A34,*A35,*A36,*A37,*A38,*A39,*A40
  89. 1880 *M4:ON Q GOTO *A41,*A42,*A43,*A44,*A45,*A46,*A47,*A48,*A49,*A50
  90. 1890 '
  91. 1900 *A1  :A$="エジプト"        :XP=266:YP=89  :GOTO *SENTAKU
  92. 1910 *A2  :A$="リビア"          :XP=186:YP=79  :GOTO *SENTAKU
  93. 1920 *A3  :A$="チュニジア"      :XP=172:YP=59  :GOTO *SENTAKU
  94. 1930 *A4  :A$="モ－リシャス"    :XP=386:YP=377 :GOTO *SENTAKU
  95. 1940 *A5  :A$="アルジェリア"    :XP=139:YP=60  :GOTO *SENTAKU
  96. 1950 *A6  :A$="モロッコ"        :XP=105:YP=66  :GOTO *SENTAKU
  97. 1960 *A7  :A$="モ－リタニア"    :XP=48 :YP=141 :GOTO *SENTAKU
  98. 1970 *A8  :A$="セネガル"        :XP=43 :YP=161 :GOTO *SENTAKU
  99. 1980 *A9  :A$="カンビア"        :XP=42 :YP=172 :GOTO *SENTAKU
  100. 1990 *A10 :A$="ギニアビサオ"    :XP=47 :YP=182 :GOTO *SENTAKU
  101. 2000 *A11 :A$="ギニア"          :XP=51 :YP=189 :GOTO *SENTAKU
  102. 2010 *A12 :A$="シエラレオネ"    :XP=58 :YP=200 :GOTO *SENTAKU
  103. 2020 *A13 :A$="リベリア"        :XP=67 :YP=209 :GOTO *SENTAKU
  104. 2030 *A14 :A$="コ－トジボア－ル":XP=90 :YP=212 :GOTO *SENTAKU
  105. 2040 *A15 :A$="ガ－ナ"          :XP=114:YP=217 :GOTO *SENTAKU
  106. 2050 *A16 :A$="ト－ゴ"          :XP=123:YP=212 :GOTO *SENTAKU
  107. 2060 *A17 :A$="ベナン"          :XP=128:YP=209 :GOTO *SENTAKU
  108. 2070 *A18 :A$="マリ"            :XP=78 :YP=173 :GOTO *SENTAKU
  109. 2080 *A19 :A$="ブルキナファソ"  :XP=105:YP=179 :GOTO *SENTAKU
  110. 2090 *A20 :A$="ニジェ－ル"      :XP=130:YP=171 :GOTO *SENTAKU
  111. 2100 *A21 :A$="ナイジェリア"    :XP=149:YP=194 :GOTO *SENTAKU
  112. 2110 *A22 :A$="カルメ－ン"      :XP=174:YP=223 :GOTO *SENTAKU
  113. 2120 *A23 :A$="赤道ギニア"      :XP=168:YP=238 :GOTO *SENTAKU
  114. 2130 *A24 :A$="ガボン"          :XP=165:YP=246 :GOTO *SENTAKU
  115. 2140 *A25 :A$="コンゴ"          :XP=193:YP=265 :GOTO *SENTAKU
  116. 2150 *A26 :A$="ザイ－ル"        :XP=200:YP=266 :GOTO *SENTAKU
  117. 2160 *A27 :A$="アンゴラ"        :XP=187:YP=291 :GOTO *SENTAKU 
  118. 2170 *A28 :A$="ナミビア"        :XP=203:YP=359 :GOTO *SENTAKU
  119. 2180 *A29 :A$="南アフリカ共和国":XP=255:YP=376 :GOTO *SENTAKU
  120. 2190 *A30 :A$="レソト"          :XP=253:YP=400 :GOTO *SENTAKU
  121. 2200 *A31 :A$="スワジランド"    :XP=310:YP=386 :GOTO *SENTAKU
  122. 2210 *A32 :A$="ボツワナ"        :XP=248:YP=368 :GOTO *SENTAKU
  123. 2220 *A33 :A$="ジンバエブ"      :XP=274:YP=341 :GOTO *SENTAKU
  124. 2230 *A34 :A$="ザンビア"        :XP=262:YP=325 :GOTO *SENTAKU
  125. 2240 *A35 :A$="モザンビ－ク"    :XP=277:YP=380 :GOTO *SENTAKU
  126. 2250 *A36 :A$="マラウイ"        :XP=291:YP=320 :GOTO *SENTAKU
  127. 2260 *A37 :A$="タンザニア"      :XP=314:YP=286 :GOTO *SENTAKU
  128. 2270 *A38 :A$="マダガスカル"    :XP=349:YP=350 :GOTO *SENTAKU
  129. 2280 *A39 :A$="ケニア"          :XP=305:YP=253 :GOTO *SENTAKU
  130. 2290 *A40 :A$="ウガンダ"        :XP=278:YP=245 :GOTO *SENTAKU
  131. 2300 *A41 :A$="ルワンダ"        :XP=268:YP=256 :GOTO *SENTAKU
  132. 2310 *A42 :A$="ブルンジ"        :XP=270:YP=268 :GOTO *SENTAKU
  133. 2320 *A43 :A$="ソマリア"        :XP=350:YP=227 :GOTO *SENTAKU
  134. 2330 *A44 :A$="エチオピア"      :XP=314:YP=197 :GOTO *SENTAKU
  135. 2340 *A45 :A$="ス－ダン"        :XP=279:YP=163 :GOTO *SENTAKU
  136. 2350 *A46 :A$="中央アフリカ"    :XP=207:YP=220 :GOTO *SENTAKU
  137. 2360 *A47 :A$="チャド"          :XP=194:YP=182 :GOTO *SENTAKU
  138. 2370 *A48 :A$="ジプチ"          :XP=333:YP=186 :GOTO *SENTAKU
  139. 2380 *A49 :A$="コモロ"          :XP=366:YP=299 :GOTO *SENTAKU
  140. 2390 *A50 :A$="モ－リシャス"    :XP=386:YP=377 :GOTO *SENTAKU
  141. 2400 '
  142. 2410 *SENTAKU
  143. 2420   IF TTN=0 THEN GOTO *WRITE 
  144. 2430   IF TTN=1 THEN GOTO *WRITE_NO 
  145. 2440   IF TTN=2 THEN GOTO *SIRABE_WRITE 
  146. 2450 '
  147. 2460 *WRITE
  148. 2470  LOCATE 56,6:COLOR 1:PRINT "                     "
  149. 2480  LOCATE 56,6:COLOR 1:PRINT A$
  150. 2490  GOTO 2530
  151. 2500 '
  152. 2510 *POINT
  153. 2520 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1: MOUSE 4,27,38,396,426:GOTO 2540
  154. 2530 MOUSE 5:MOUSE 0:MOUSE 1,337,364,1:MOUSE 4,27,3,396,426
  155. 2540 B=1
  156. 2550 X=MOUSE(4,0):Y=MOUSE(5,0)
  157. 2560 IF X>103 AND X<128 AND Y>415 AND Y<424 THEN       GOTO *SIRABERU
  158. 2570 IF X>133 AND X<158 AND Y>415 AND Y<424 THEN BN=0 :GOTO *MODORU
  159. 2580 IF X>31  AND X<50  AND Y>404 AND Y<422 THEN       GOTO *MENU_E
  160. 2590 IF X>64  AND X<84  AND Y>404 AND Y<422 THEN       GOTO *OWARI_E
  161. 2600 IF X>264 AND X<269 AND Y>87  AND Y<92  THEN TT=1 :GOTO *BUNKI  '
  162. 2610 IF X>184 AND X<189 AND Y>77  AND Y<82  THEN TT=2 :GOTO *BUNKI  '
  163. 2620 IF X>170 AND X<175 AND Y>57  AND Y<62  THEN TT=3 :GOTO *BUNKI  '
  164. 2630 IF X>384 AND X<389 AND Y>375 AND Y<380 THEN TT=4 :GOTO *BUNKI  '
  165. 2640 IF X>137 AND X<142 AND Y>58  AND Y<63  THEN TT=5 :GOTO *BUNKI  '
  166. 2650 IF X>103 AND X<108 AND Y>64  AND Y<69  THEN TT=6 :GOTO *BUNKI  '
  167. 2660 IF X>46  AND X<51  AND Y>139 AND Y<144 THEN TT=7 :GOTO *BUNKI  '
  168. 2670 IF X>41  AND X<46  AND Y>159 AND Y<164 THEN TT=8 :GOTO *BUNKI  '
  169. 2680 IF X>40  AND X<45  AND Y>170 AND Y<175 THEN TT=9 :GOTO *BUNKI  '
  170. 2690 IF X>45  AND X<50  AND Y>180 AND Y<185 THEN TT=10:GOTO *BUNKI '
  171. 2700 IF X>49  AND X<54  AND Y>187 AND Y<192 THEN TT=11:GOTO *BUNKI '
  172. 2710 IF X>56  AND X<61  AND Y>198 AND Y<203 THEN TT=12:GOTO *BUNKI '
  173. 2720 IF X>65  AND X<70  AND Y>207 AND Y<212 THEN TT=13:GOTO *BUNKI '
  174. 2730 IF X>88  AND X<93  AND Y>210 AND Y<215 THEN TT=14:GOTO *BUNKI '
  175. 2740 IF X>112 AND X<117 AND Y>215 AND Y<220 THEN TT=15:GOTO *BUNKI '
  176. 2750 IF X>121 AND X<126 AND Y>210 AND Y<215 THEN TT=16:GOTO *BUNKI '
  177. 2760 IF X>126 AND X<131 AND Y>207 AND Y<212 THEN TT=17:GOTO *BUNKI '
  178. 2770 IF X>75  AND X<80  AND Y>171 AND Y<176 THEN TT=18:GOTO *BUNKI '
  179. 2780 IF X>103 AND X<108 AND Y>177 AND Y<182 THEN TT=19:GOTO *BUNKI '
  180. 2790 IF X>128 AND X<133 AND Y>169 AND Y<174 THEN TT=20:GOTO *BUNKI '
  181. 2800 IF X>147 AND X<152 AND Y>192 AND Y<197 THEN TT=21:GOTO *BUNKI '
  182. 2810 IF X>172 AND X<177 AND Y>221 AND Y<226 THEN TT=22:GOTO *BUNKI '
  183. 2820 IF X>166 AND X<171 AND Y>236 AND Y<241 THEN TT=23:GOTO *BUNKI '
  184. 2830 IF X>163 AND X<168 AND Y>244 AND Y<249 THEN TT=24:GOTO *BUNKI '
  185. 2840 IF X>191 AND X<196 AND Y>263 AND Y<268 THEN TT=25:GOTO *BUNKI '
  186. 2850 IF X>198 AND X<203 AND Y>264 AND Y<269 THEN TT=26:GOTO *BUNKI '
  187. 2860 IF X>185 AND X<190 AND Y>289 AND Y<294 THEN TT=27:GOTO *BUNKI '
  188. 2870 IF X>201 AND X<206 AND Y>357 AND Y<362 THEN TT=28:GOTO *BUNKI '
  189. 2880 IF X>253 AND X<258 AND Y>374 AND Y<379 THEN TT=29:GOTO *BUNKI '
  190. 2890 IF X>251 AND X<256 AND Y>398 AND Y<403 THEN TT=30:GOTO *BUNKI '
  191. 2900 IF X>308 AND X<313 AND Y>384 AND Y<389 THEN TT=31:GOTO *BUNKI '
  192. 2910 IF X>246 AND X<251 AND Y>366 AND Y<371 THEN TT=32:GOTO *BUNKI '
  193. 2920 IF X>272 AND X<277 AND Y>339 AND Y<344 THEN TT=33:GOTO *BUNKI '
  194. 2930 IF X>260 AND X<265 AND Y>323 AND Y<328 THEN TT=34:GOTO *BUNKI '
  195. 2940 IF X>275 AND X<280 AND Y>378 AND Y<383 THEN TT=35:GOTO *BUNKI '
  196. 2950 IF X>289 AND X<294 AND Y>318 AND Y<323 THEN TT=36:GOTO *BUNKI '
  197. 2960 IF X>312 AND X<317 AND Y>284 AND Y<289 THEN TT=37:GOTO *BUNKI '
  198. 2970 IF X>347 AND X<352 AND Y>348 AND Y<353 THEN TT=38:GOTO *BUNKI '
  199. 2980 IF X>303 AND X<308 AND Y>251 AND Y<256 THEN TT=39:GOTO *BUNKI '
  200. 2990 IF X>276 AND X<281 AND Y>243 AND Y<248 THEN TT=40:GOTO *BUNKI '
  201. 3000 IF X>266 AND X<271 AND Y>254 AND Y<259 THEN TT=41:GOTO *BUNKI '
  202. 3010 IF X>268 AND X<273 AND Y>266 AND Y<251 THEN TT=42:GOTO *BUNKI '
  203. 3020 IF X>348 AND X<353 AND Y>225 AND Y<230 THEN TT=43:GOTO *BUNKI '
  204. 3030 IF X>312 AND X<317 AND Y>195 AND Y<200 THEN TT=44:GOTO *BUNKI '
  205. 3040 IF X>277 AND X<282 AND Y>161 AND Y<166 THEN TT=45:GOTO *BUNKI '
  206. 3050 IF X>205 AND X<210 AND Y>218 AND Y<223 THEN TT=46:GOTO *BUNKI '
  207. 3060 IF X>192 AND X<197 AND Y>180 AND Y<185 THEN TT=47:GOTO *BUNKI '
  208. 3070 IF X>331 AND X<336 AND Y>184 AND Y<189 THEN TT=48:GOTO *BUNKI '
  209. 3080 IF X>364 AND X<371 AND Y>297 AND Y<302 THEN TT=49:GOTO *BUNKI '
  210. 3090 IF X>384 AND X<389 AND Y>375 AND Y<380 THEN TT=50:GOTO *BUNKI '
  211. 3100 IF B=1 THEN 3110 ELSE 2550
  212. 3110 'MOUSE 5:MOUSE 0:MOUSE 1,382,412,1:MOUSE 4,25,36,382,412
  213. 3120 B=B+1
  214. 3130 GOTO 2550
  215. 3140 '
  216. 3150 *BUNKI
  217. 3160   IF BN=0 THEN *QUIZ ELSE *SIRABE
  218. 3170 *QUIZ 
  219. 3180   IF QQ=TT THEN *YES ELSE *NO
  220. 3190 *SIRABE 
  221. 3200   TTN=2:GOTO *CHECK
  222. 3210 '
  223. 3220 *YES
  224. 3230  CY=CY+1
  225. 3240    LOCATE 57,13:COLOR 1:PRINT"正解です｡  " 
  226. 3250    PCMPLAY YES_S%
  227. 3260  GOSUB *COUNT
  228. 3270  WAIT 100
  229. 3280  WAIT 100
  230. 3290    LOCATE 57,13:COLOR 1:PRINT"            " 
  231. 3300  IF QQN=2 THEN 3970
  232. 3310  GOTO 1790
  233. 3320 '
  234. 3330 *NO
  235. 3340  CN=CN+1:TTN=1
  236. 3350  '  LOCATE 57,13:COLOR 3:PRINT"残念でした｡" 
  237. 3360     PCMPLAY NO_S%
  238. 3370  XPP=XP:YPP=YP
  239. 3380      *CHECK
  240. 3390       IF TT=<10           THEN Q=TT   :GOTO *M0
  241. 3400       IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
  242. 3410       IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
  243. 3420       IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
  244. 3430       IF TT>40 AND TT=<50 THEN Q=TT-40:GOTO *M4
  245. 3440       IF TT=51 THEN A$="DUMY"
  246. 3450   *WRITE_NO
  247. 3460    AW=LEN(A$):BW=(22-AW)\2
  248. 3470  LOCATE 55,12:COLOR 1:PRINT"そこは"
  249. 3480    LOCATE 55,13:COLOR 2:PRINT SPACE$(BW)+A$
  250. 3490  LOCATE 55,14:COLOR 1:PRINT"                です｡ "
  251. 3500  GOSUB *COUNT
  252. 3510  IF QQN=0 THEN GOSUB *KIROKU2
  253. 3520    CIRCLE (XPP,YPP),6,4,,,,F,XOR
  254. 3530  WAIT 220
  255. 3540    CIRCLE (XPP,YPP),6,4,,,,F,XOR
  256. 3550  LOCATE 55,12:COLOR 1:PRINT SPACE$(20)
  257. 3560  LOCATE 55,13:COLOR T:PRINT SPACE$(20)
  258. 3570  LOCATE 55,14:COLOR 1:PRINT SPACE$(20)
  259. 3580  IF QQN=2 THEN 3970
  260. 3590  GOTO 1790
  261. 3600 '
  262. 3610 *COUNT
  263. 3620  CT=CY+CN
  264. 3630  CC=INT((CY/CT)*100)
  265. 3640  CG=INT(CC*1.5!):IF CG>148 THEN CG=148
  266. 3650    LOCATE 63,18:PRINT "             "
  267. 3660    LOCATE 67,19:PRINT "     "
  268. 3670    LOCATE 63,18:COLOR 1:PRINT "(";CY;"/";CT;")  "
  269. 3680    LOCATE 67,19:COLOR 1:PRINT CC
  270. 3690    LINE (451,   381)-(599,   404),PSET,%8,B
  271. 3700    LINE (451,   381)-(451+CG,404),PSET,%8,BF,%11
  272. 3710    LINE (451+CG,381)-(599,   404),PSET,%8,BF,%13
  273. 3720  RETURN
  274. 3730 '
  275. 3740 *KIROKU2
  276. 3750   KIRR(KIRN)=QQ
  277. 3760   KIRN=KIRN+1
  278. 3770  RETURN
  279. 3780 '
  280. 3790 '** 確認 選択 **
  281. 3800 MOUSE 5:CLS 4
  282. 3810 LOCATE 55,6 :COLOR 2:PRINT"間違いを確認しますか?"
  283. 3820 LOCATE 57,8 :COLOR 1:PRINT"      確認します｡"
  284. 3830 LOCATE 57,9 :COLOR 1:PRINT"      確認しません｡"
  285. 3840 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  286. 3850 X=MOUSE(4,0):Y=MOUSE(5,0)
  287. 3860   IF X>39  AND X<60  AND Y>50  AND Y<65  THEN GOTO *MENU_E
  288. 3870   IF X>73  AND X<93  AND Y>50  AND Y<69  THEN GOTO *OWARI_E
  289. 3880   IF X>505 AND X<582 AND Y>153 AND Y<167 THEN GOTO 3920
  290. 3890   IF X>510 AND X<608 AND Y>172 AND Y<180 THEN GOTO 4020
  291. 3900 GOTO 3850
  292. 3910 '
  293. 3920 '** 確認 ROOTINE ** 
  294. 3930   PNO=KIRN-1
  295. 3940   QQN=1:CY=0:CN=0
  296. 3950   FOR J=0 TO PNO
  297. 3960     QQ=KIRR(J):GOTO 1460
  298. 3970   NEXT J
  299. 3980  MOUSE 5:CLS 4
  300. 3990    LOCATE 55,6 :COLOR 2:PRINT"もう一度確認しますか?"
  301. 4000  GOTO 3820
  302. 4010 '
  303. 4020 '** END 選択 **
  304. 4030   LINE(464,107)-(586,145),PSET,%13,BF
  305. 4040   LINE(451,381)-(599,404),PSET,%8,BF,%13
  306. 4050 MOUSE 5:CLS 4
  307. 4060   LOCATE 56,6 :COLOR 2:PRINT"続けますか?"
  308. 4070   LOCATE 58,7 :COLOR 1:PRINT"     続けます｡"
  309. 4080   LOCATE 58,8 :COLOR 1:PRINT"     終わります｡"
  310. 4090 ERASE NF:ERASE KIRR
  311. 4100 MOUSE 0:MOUSE 1,596,353,1
  312. 4110 X=MOUSE(4,0):Y=MOUSE(5,0)
  313. 4120   IF X>39  AND X<60  AND Y>50  AND Y<65  THEN GOTO *MENU_E
  314. 4130   IF X>73  AND X<93  AND Y>50  AND Y<69  THEN GOTO *OWARI_E
  315. 4140   IF X>505 AND X<573 AND Y>135 AND Y<145 THEN GOTO 1150
  316. 4150   IF X>505 AND X<588 AND Y>153 AND Y<167 THEN GOTO 4180
  317. 4160 GOTO 4110
  318. 4170 '
  319. 4180 IF MENU=1 THEN 4230 ELSE 4420 
  320. 4190 '
  321. 4200 '** END 選択 **
  322. 4210   LINE(464,107)-(586,145),PSET,%13,BF
  323. 4220   LINE(451,381)-(599,404),PSET,%8,BF,%13
  324. 4230 MOUSE 5:CLS 4
  325. 4240   LOCATE 55,6 :COLOR 2:PRINT"メニュ－に戻りますか?"
  326. 4250   LOCATE 55,7 :COLOR 1:PRINT"    戻ります｡"
  327. 4260   LOCATE 55,8 :COLOR 1:PRINT"    戻らず終わります｡"
  328. 4270 MOUSE 0:MOUSE 1,596,353,1
  329. 4280 X=MOUSE(4,0):Y=MOUSE(5,0)
  330. 4290   IF X>39  AND X<60  AND Y>50  AND Y<65  THEN GOTO *MENU_E
  331. 4300   IF X>73  AND X<93  AND Y>50  AND Y<69  THEN GOTO *OWARI_E
  332. 4310   IF Y>135 AND Y<145 THEN GOTO 4380
  333. 4320   IF Y>153 AND Y<167 THEN GOTO 4420
  334. 4330 GOTO 4280
  335. 4340 '
  336. 4350 *MENU_E
  337. 4360 ERASE NF:ERASE KIRR
  338. 4370 *MENU_1
  339. 4380 CHAIN "B_MENU2.BAS",,ALL
  340. 4390 RUN "B_MENU2.BAS"
  341. 4400 '
  342. 4410 *OWARI_E
  343. 4420 CHAIN "B_END.BAS",,ALL
  344. 4430 RUN "B_END.BAS"
  345. 4440 '
  346. 4450 *SIRABERU
  347. 4460  IF SIR=1 THEN CLS 4:GOTO 4530
  348. 4470  'LINE(441,101)-(601,146),PSET,%13,BF
  349. 4480  'CLS 4
  350. 4490  '
  351. 4500  LOCATE 55,8 :COLOR 2:PRINT"  クイズ中断中　   "
  352. 4510  LOCATE 57,9 :COLOR 1:PRINT"  調べモードです。":GOTO 4550
  353. 4520  '
  354. 4530  LOCATE 55,6 :COLOR 2:PRINT"クイズ中断中　"
  355. 4540  LOCATE 57,8 :COLOR 1:PRINT"調べモードです。"
  356. 4550  LOCATE 61,2 :COLOR 2:PRINT"国名クイズ"
  357. 4560  LOCATE 55,4 :COLOR 2:PRINT"確  認"
  358. 4570  LOCATE 55,11:COLOR 2:PRINT"国 名"
  359. 4580   BN=1:GOTO *POINT
  360. 4590 '
  361. 4600 *SIRABE_WRITE
  362. 4610  LOCATE 15,22:COLOR 3:PRINT SPACE$(50)
  363. 4620  LOCATE 55,12:COLOR 1:PRINT"そこは"
  364. 4630  LOCATE 55,14:COLOR 1:PRINT"                です｡ "
  365. 4640  LOCATE 57,13:PRINT SPACE$(20)
  366. 4650  AW=LEN(A$):BW=(22-AW)\2
  367. 4660  FOR T=5 TO 2 STEP -1 
  368. 4670    LOCATE 55,13:COLOR T:PRINT SPACE$(BW)+A$
  369. 4680    WAIT 25
  370. 4690  NEXT
  371. 4700  WAIT 50:GOTO *POINT
  372. 4710 '
  373. 4720 *MODORU
  374. 4730  IF SIR=1 THEN GOTO *MENU_GAMEN'
  375. 4740  LOCATE 55,6 :COLOR 2:PRINT SPACE$(18)
  376. 4750  LOCATE 57,8 :COLOR 1:PRINT SPACE$(18)
  377. 4760  LOCATE 57,9 :COLOR 1:PRINT SPACE$(18)
  378. 4770  LOCATE 55,11:COLOR 2:PRINT SPACE$(18)
  379. 4780  LOCATE 55,13:COLOR T:PRINT SPACE$(22)
  380. 4790  LOCATE 55,12:COLOR 1:PRINT SPACE$(18)
  381. 4800  LOCATE 55,14:COLOR 1:PRINT SPACE$(18)
  382. 4810  LOCATE 61,2 :COLOR 2:PRINT"国名クイズ"
  383. 4820  LOCATE 55,4 :COLOR 2:PRINT"問  題"
  384. 4830  LOCATE 61,8 :COLOR 2:PRINT"左クリックして"
  385. 4840  LOCATE 61,9 :COLOR 2:PRINT"下さい｡"
  386. 4850  LOCATE 55,11:COLOR 2:PRINT"答  え"
  387. 4860  GOTO 1800
  388. 4870 '
  389. 4880 *MOUS
  390. 4890  MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  391. 4900  X=MOUSE(4,0):Y=MOUSE(5,0)
  392. 4910  LOCATE 10,19:PRINT X;Y
  393. 4920  GOTO 4900
  394.